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VERIF Y="FSVERIFY(O)* 
les 


This procedure mounts all disks in the cluster, and runs as a detached 
pregess (or interactively) on all nodes in the cluster. It may 
e invoked in three ways: 


1) To mount all the disks and then exit: 
@MSCPMOUNT ONCE 


2) To mount all the disks, then start a detached process to check 
every 15 minutes for any new disks to mount. This should be 
used in an environment which uses many mscp-served disks. 


@MSCPMOUNT 


interactively. 
@MSCPMOUNT MOUNT alldevnam Label 
(for instance, @MSCPMOUNT MOUNT $255$DUA1 WORKO1 


Nornetty, you would probably use method 1) or 2) in your 

common SYSTARTUP file to mount all the disks at system startup. 

If you have seco nerves disks in your configuration, you must 

SET DEVICE/SERVE C/DUAL] them before invoking this procedure. 

In addition, your SYSTARTUP file should also wait for at least 

one disk per HSC or Cuak=perter pair of HSC's to be configured 
e 


using a loop similar to the following: 


! 
Use the allocation-class name for the device 


ITFOR_DEV = ‘‘$255$DUA5:"* !Name of device to wait for 
ITFOR_LABEL = “‘VMSDOCLIB" 
VERTFY 'Show what happens on console 


3) To only mount a single disk. Typically this would be done 
Enable us to talk to the HSC-50 nemed HSCA 


DVICWAITFOR_DEV, ‘‘EXISTS'’) THEN GOTO HSCA2 

SSOUTPUT ‘Waiting for ''WAITFOR_LABEL' (**WAITFOR_DEV")"* 

: 

:0:30 

A 
| 
| 
| 
| 
| 
| 


vice exists, try to mount it. If we cannot mount it 
en go try again. This is only necessary if the disk 
required for normal system operations. 


STEM "WAITFOR_DEV’ ‘WAITFOR LABEL’ 
SSTATUS THEN GOTO HSCA_RETRY 
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ached process 


T NOON 
Hi INTERVAL = "00:15:00" Time ate 


to wait if 
CEDURE _NAME = FSELEM MENT (O, “—" FSENVIRONMENT (“PROCEDUR 
CURSIVE ~ “CALLBACK = RotESURE _NAME 
I 


this is the callback to mount a disk, then go mount the disk. 

syssouTPUT THEN GOTO MOUNT_DEVICE 

svesoutrul "Beginning MSCPMOUNT procedure at "',FSTIME(),"... 

PRIVS = ‘'VOLPRO, OPER ,SYSNAM,GRPNAM'' ! unting 
SYSPRV,CMKRNL,ALTPRI, DETACH’! Othes 

LOCAL_NODE == escéistie ‘NODENAME'') 

SAVE _BEFAULT = FSENVIRONMENT (' DEFAULT’) 

PREVPRIVS = FSSETPRV(REQPRIVS) 

If .NOT. FSPR SELES SoLer newer THEN GOTO RESET_PROCESS 

r DEFAULT SYSSMANAGER 

Mount volume sets 

RECURSIVE. CALLBACK MOUNT ''$1$DRB6,$1$DRB7"" ‘‘ADMIN1,ADMIN2" 


i Mount disks residing on HSCs. In this example, the HSC's 
have the disk allocation class set to 255. 


RECURSIVE_CALLBACK MOUNT $35580u STARWORKO1 


de 
¥ 


maPm 


wrwrw PHAPHHAAPHHOOCOCOR | 
DEC C—------D VEY 


RECURSIVE-CALLBACK MOUNT $255$DUA13 STARWORKO 
RECURSIVE CALLBACK MOUNT $255$DUA14 STARWORKO 


' ALL done mounting disks. If request was ONCE, pore exit. 
! If we are the detached process then 9° wait a while. 

! Otherwise, this is the first invocation of the procedure, 
! we must create the detached process. 


' 
' 
' 
' 
CHECK oe 7+ 
IF (Pi, "ONCE") THEN GOTO RESET_PROCESS 
IF FSGETIPI CO, ‘PRCNAM’') .EQS. ‘MSCPmount’’ THEN GOTO DETACHED_LOOP 


‘ 
Start the detached process 

PURGE SYSSMANAGER :MSCPMOUNT_ ‘LOCAL NODE" .LOG /KEEP:3 
RUN 


FSMODE () Aa ““INTERACTIVE’’ THEN 
YSSOUTPUT ‘*Z Ignore possible duplicate process name error. 


PF AHFHPARKAAPFFAPFPAAPFAFKELEFKFAFHAAKFLEEVEES 


WRITE S 
SYSSSYSTEMSL 


I 
/NORUTHOR|ZE - 
| /UIC=L 4 - 
/PRIORITY=4 
| MAXIMUM_WORKING_ SET=1024 . 
VEXTEWTe =2048 
/1NPUT=* PROCEDU —_NAME" 
/OUTPUT= TSSHANAGERCA MSCPMOUNT_"LOCAL_NODE'.LOG - 


JERROR=SYSSMANACER: MSCPMOUNT_*LOCAL_RODE'.LOG - 


2 
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/PROCESS_NAME="'MSCPmount"’ 


2 
xxmMmomnmn 
— = we Ie 


his incarnation is the detached process which is supposed to 

stay around forever continually trying to re-mount disks. So, 

lets loop right here. Note that we must invoke ourself recursively 
in order to make sure we get any new versions of this procedure. 


ETACHED_LOOP 
*WAIT_I 


PAAAAAAMHHMHMOS 


D 


mM... ee -- -MS VE 


This section of the procedure is entered on a recursive callback. 
If the disk exists and is not currently mounted, it will be mounted. 


The parameters for this routine are: 
= full disk name or List of same (e.g. $1SDUA15, STARS$DBB3) 
P3 = volume label or List of same (e.g. STARWORKO4S 
P4 = mount qualifiers (e.g. /NOWRITE, optional) 


PERFORM_MOUNT = "YES" 
PERFORM DISMOUNT = ‘‘NO'' 

F P35 .EQS. ‘“’ THEN PERFORM_MOUNT = ‘'NO"’ 
DEVICE_ELEMENT = 0 
! Loop through all devices Listed in P2 
DEVICE LOOP: 

DEVICE = FSELEMENT( DEVICE_ELEMENT, "',"', P2 ) 
DEVICE .EQS. ‘"* THEN GOTO ENDI 
IF DEVICE .€QS. ‘*,"* THEN GOTO DO_DISMOUNT 
DEVICE_ELEMENT = DEVICE_ELEMENT + 1 
i If nonexistant device, skip the rest of this. 


if .NOT. FSGETDVI( DEVICE, “EXISTS'’ ) THEN GOTO NONEXISTANT DEVICE 
IF .NOT. FSGETDVI( DEVICE. "'HOST_AVAIL" ) THEN GOTO HOST_NOT_AVAILABLE 


; If already mounted, set flag to not do it again. 
if .NOT. FSGETDVI( DEVICE, ‘MNT’’ ) THEN GOTO DEVICE_LOOP 
PERFORM_MOUNT = “NO" 
i Bit %X800 in STS is VALID bit -- check if disk is not valid 
! Bit 2x4 in STS is MNTVERIP bit -- check if disk is not in mount verification 
} Not Valid implies that mount verification has timed out 

( 


IF (( FSGETDVI(DEVICE,"’STS") .AND. %X4800 ) .NE. 0 ) THEN GOTO DEVICE_LOOP 


PAAAAAAAAA AAA AHPHHHHHHM 
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— 
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! If P2 null, exit immediatel 
' If en 
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d of (ist. do DISMOUNT/MOUNT. 
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$ PERFORM DISMOUNT = ‘'YES" 
: GOTO DEVICE_LOOP 
$ 


HOST _NOT aya: 


$ WRITE S$ UTPUT = 

*“"ZMSC EpROUNT CU-HOHOST, host ‘'f$getdvi(Device,’‘HOST_NAME'')' for ''f$getdvi(Device,'‘FULLDEVNAM'’)’ is not available now'’ 
SNONEXISTANT DEVICE: . 
: GOTO ENDING 
$D0_DISM mt 
$ PRCNAM = FSGETJPI(0,"PRCNAM 
$ IF NNOT. PERFORM sbisnount WEN GOTO DO_MOUNT 
$ PERFORM_MCUNT = "YES" 
$ DEVICE = FSELEM et Oy es 
$ REPLY /NODE /ALL ‘'Rem mount iig E* on whee after mount verification timeout" 
$ SET PROCESS /NARE="FSEXTRAC (0, ; vASRO . *DEVICE)’ 
$ VERIFY=FSVERIFY(1) 
$ DISMOUNT cup OND /ABORT ‘DEVICE’ 
ed dla, VERIF 

SET PROCESS /NAME="""'PRCNAM''' 
; WAIT 0:0:15 
$DO_MOUNT: 
$ IF .NOT. PERFORM_MOUNT THEN GOTO ENDING 
$ DEVICE = FSELEMERT ( Se = «Fe 8 
: S_CLU LUSTER = 
$ ! Do not mount HSC-based disks with /CLUSTER, under the assumption 
$ ! that all nodes want n9 access to the disk will mount it themselves. 
$ ! Mount MSCP-served disks with /CLUSTER, as ‘courtesy’ to the 
: rest of the cluster. 
$ ! If you add /NOREBUILD to the mount command to override the rebuilding 
$ ! of the disk, you must ensure that the disk rebuilds are done via some 
: other mechanism. 
$ IF PRCNAM .EQS. STARTUP’ THEN S ~CLUSTER = *'/CLUSTER"’ 
$ IF Ce eT EN ee ‘HOST_TYPE'’) TEQS. ‘'HS50’ it S_CLUSTER = 
$ SET PROCESS ~~ E="FSEXTRACT(O,15, "MNT_ HS +DEVICE)' 
$ VERIFY= 4gsr° Y¥(1) 
$ MOUNT 'S C sTER! /SYSTEM /NOASSIST ‘'P4* ‘P2* 'P3' 
$1 °F SVERIFY (VERIFY) 
. SET PROCESS /NAME=""''PRCNAM'"' 
SENDING. 
$ EXIT 
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